home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / table.ged < prev    next >
Encoding:
Text File  |  1996-01-19  |  3.6 KB  |  136 lines
  1. /* $VER: 1.1, ©1996 Dietmar Eilert. Create empty table */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'QUERY DOC VAR=DOC'
  20.  
  21. 'FIX VAR=DOC'
  22.  
  23. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  24.  
  25. 'NAME NEW=' || RESULT
  26.  
  27. 'REQUEST STRING TITLE="Create new table" BODY="Table caption         " OLD="Title" VAR=CAPTION'
  28.  
  29. if (RC = 0) then do
  30.  
  31.     'REQUEST LONG TITLE="Create new table" BODY="Number of columns     " MIN=1 MAX=255 OLD=2 VAR=COLUMNS'
  32.  
  33.     if (RC = 0) then do
  34.  
  35.         'REQUEST LONG TITLE="Create new table" BODY="Number of rows        " MIN=1 MAX=255 OLD=2 VAR=ROWS'
  36.  
  37.         if (RC = 0) then do
  38.  
  39.             'REQUEST TITLE="Create new table" BODY="Should the table have a border ?" BUTTON="!BORDER|No border|_Cancel" VAR=BORDER'
  40.  
  41.             if ((RC = 0) & (RESULT ~= 0)) then do
  42.  
  43.                 'REQUEST TITLE="Create new table" BODY="Should the first row be a table header ?" BUTTON="!HEADER|_Data|_Cancel" VAR=HEADER'
  44.  
  45.                 if ((RC = 0) & (RESULT ~= 0)) then do
  46.  
  47.                     'INSERT LINE'
  48.                     'INSERT LINE'
  49.                     'DOWN'
  50.  
  51.                     if (BORDER = 1) then
  52.                         'TEXT STAY T="<TABLE BORDER>"'
  53.                     else
  54.                         'TEXT STAY T="<TABLE>"'
  55.  
  56.                     'DOWN'
  57.                     'INSERT LINE'
  58.                     'TEXT STAY T="</TABLE>"'
  59.  
  60.                     if (CAPTION ~= "") then do
  61.  
  62.                         'FIX VAR=CAPTION'
  63.  
  64.                         'INSERT LINE'
  65.                         'TEXT STAY T="<CAPTION>"'
  66.                         'DOWN'
  67.  
  68.                         'INSERT LINE'
  69.                         'TEXT STAY T="' || CAPTION || '"'
  70.                         'DOWN'
  71.  
  72.                         'INSERT LINE'
  73.                         'TEXT STAY T="</CAPTION>"'
  74.                         'DOWN'
  75.                     end
  76.  
  77.                     do ROW = 1 to ROWS
  78.  
  79.                         'INSERT LINE'
  80.                         'TEXT STAY T="<TR>"'
  81.                         'DOWN'
  82.  
  83.                         if (ROW = 1) then
  84.                             'PING SLOT=0'
  85.  
  86.                         if ((ROW = 1) & (HEADER = 1)) then do
  87.  
  88.                             do COLUMN = 1 to COLUMNS
  89.  
  90.                                 'INSERT LINE'
  91.                                 'TEXT STAY T="<TH>header cell</TH>"'
  92.                                 'DOWN'
  93.  
  94.                             end
  95.                         end
  96.                         else do
  97.  
  98.                             do COLUMN = 1 to COLUMNS
  99.  
  100.                                 'INSERT LINE'
  101.                                 'TEXT STAY T="<TD>table cell</TD>"'
  102.                                 'DOWN'
  103.  
  104.                             end
  105.                         end
  106.  
  107.                         'INSERT LINE'
  108.                         'TEXT STAY T="</TR>"'
  109.                         'DOWN'
  110.                     end
  111.  
  112.                     'PONG SLOT 0'
  113.  
  114.                     'GOTO STEP=4'
  115.  
  116.                     'REQUEST STATUS="Edit the cell''s text"'
  117.                 end
  118.             end
  119.         end
  120.     end
  121. end
  122.  
  123. /* ---------------------------- END OF YOUR CODE --------------------- */
  124.  
  125. 'UNLOCK' /* VERY important: unlock GUI */
  126.  
  127. exit
  128.  
  129. SYNTAX:
  130.  
  131. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  132.  
  133. 'UNLOCK'
  134.  
  135. exit
  136.